home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Dom i biuro / EBookReader 2.2 / eBookReaderInstall.exe / data1.cab / Program_EXEs / ReaderApp.exe / PSPROCSET / 16 < prev    next >
Encoding:
Text File  |  2001-11-27  |  6.6 KB  |  393 lines
  1. %%BeginResource: procset pdflev1
  2. %%Version: 5.0 10
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, with code specific for Level 1
  6. /docinitialize {
  7. PDF begin
  8. /_defaulthalftone
  9. /currenthalftone where
  10. { pop currenthalftone }
  11. { 4 dict dup begin
  12. currentscreen
  13. /SpotFunction exch def
  14. /Angle exch def
  15. /Frequency exch def
  16. /HalftoneType 1 def
  17. end }
  18. ifelse
  19. dd
  20. end
  21. PDFVars /docSetupDone true put
  22. } bd
  23. /initialize {
  24. PDFVars /docSetupDone get {_defaulthalftone sethalftone} if
  25. } bd
  26. /terminate { } bd
  27. /pl {
  28. transform
  29. 0.25 sub round 0.25 add exch
  30. 0.25 sub round 0.25 add exch
  31. itransform
  32. } bd
  33. /m { _sa? { pl } if moveto } bd
  34. /l { _sa? { pl } if lineto } bd
  35. /c
  36. {
  37. _sa? {3 {pl 6 2 roll} repeat} if
  38. curveto
  39. } bd
  40. /ri/pop ld
  41. /setSA { /_sa? xdd } bd
  42. /re
  43. {
  44. _sa?
  45. {
  46. 8 dict begin
  47. /:h exch def
  48. /:w exch def
  49. /:y exch def
  50. /:x exch def
  51. :x :y pl
  52. /:ymin exch def /:xmin exch def
  53. :x :w add :y :h add pl
  54. /:ymax exch def /:xmax exch def
  55. :xmin :ymin moveto
  56. :xmax :ymin lineto
  57. :xmax :ymax lineto
  58. :xmin :ymax lineto
  59. closepath
  60. end
  61. }
  62. {
  63. 4 2 roll moveto
  64. 1 index 0 rlineto
  65. 0 exch rlineto
  66. neg 0 rlineto
  67. closepath
  68. } ifelse
  69. } bd
  70. /AlmostFull?
  71. { dup maxlength exch length sub 2 le
  72. } bd
  73. /Expand
  74. { 1 index maxlength mul cvi dict
  75. dup begin exch { def } forall end
  76. } bd
  77. /xput {
  78. 3 2 roll
  79. dup 3 index known not
  80. { dup AlmostFull? { 1.5 Expand } if
  81. } if
  82. dup 4 2 roll put
  83. } bd
  84. /defineRes {
  85. _categories 1 index known not
  86. { /_categories _categories 2 index 10 dict xput store
  87. } if
  88. _categories exch 2 copy get 5 -1 roll 4 index xput put
  89. } bd
  90. /findRes {
  91. _categories exch get exch get
  92. } bd
  93. /L1setcolor {
  94. aload length
  95. dup 0 eq
  96. { pop .5 setgray }
  97. { dup 1 eq
  98. { pop setgray }
  99. { 3 eq
  100. { setrgbcolor }
  101. { setcmykcolor }
  102. ifelse }
  103. ifelse }
  104. ifelse
  105. } bind dd
  106. /setoverprint where
  107. { pop }
  108. { /setoverprint { pop } bd }
  109. ifelse
  110. /_safeput
  111. {
  112. Level1?
  113. {
  114. 2 index load dup dup length exch maxlength ge
  115. { dup length 5 add dict copy
  116. 3 index xdd
  117. }
  118. { pop }
  119. ifelse
  120. }
  121. if
  122. 3 -1 roll load 3 1 roll put
  123. }
  124. bd
  125. Level1?
  126. {
  127. /pdf_CopyDict
  128. {
  129. 1 index length add dict
  130. 1 index wcheck
  131. { copy }
  132. { begin
  133. {def} forall
  134. currentdict
  135. end
  136. }
  137. ifelse
  138. }
  139. def
  140. }
  141. if
  142. /getrampcolor {
  143. /indx exch def
  144. [
  145. 0 1 NumComp 1 sub {
  146. dup
  147. Samples exch get
  148. dup type /stringtype eq { indx get } if
  149. exch
  150. Scaling exch get aload pop
  151. 3 1 roll
  152. mul add
  153. } for
  154. ]
  155. L1setcolor
  156. } bd
  157. /GenStrips {
  158. 40 dict begin
  159. /background exch def
  160. /ext1 exch def
  161. /ext0 exch def
  162. /BBox exch def
  163. /y2 exch def
  164. /x2 exch def
  165. /y1 exch def
  166. /x1 exch def
  167. /rampdict exch def
  168. gsave
  169. BBox length 0 gt {
  170. newpath
  171. BBox 0 get BBox 1 get moveto
  172. BBox 2 get BBox 0 get sub 0 rlineto
  173. 0 BBox 3 get BBox 1 get sub rlineto
  174. BBox 2 get BBox 0 get sub neg 0 rlineto
  175. closepath
  176. clip
  177. newpath
  178. } if
  179. x1 x2 eq
  180. {
  181. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  182. }
  183. {
  184. /slope y2 y1 sub x2 x1 sub div def
  185. /theta slope 1 atan def
  186. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  187. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  188. }
  189. ifelse
  190. gsave
  191. clippath
  192. x1 y1 translate
  193. theta rotate
  194. { pathbbox } stopped
  195. { 0 0 0 0 } if
  196. /yMax exch def
  197. /xMax exch def
  198. /yMin exch def
  199. /xMin exch def
  200. grestore
  201. xMax xMin eq yMax yMin eq or
  202. {
  203. grestore
  204. end
  205. }
  206. {
  207. rampdict begin
  208. 20 dict begin
  209. background length 0 gt { background L1setcolor gsave clippath fill grestore } if
  210. gsave
  211. x1 y1 translate
  212. theta rotate
  213. /xStart 0 def
  214. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  215. /ySpan yMax yMin sub def
  216. /numsteps NumSamples def
  217. /rampIndxInc 1 def
  218. /subsampling false def
  219. xStart 0 transform
  220. xEnd 0 transform
  221. 3 -1 roll
  222. sub dup mul
  223. 3 1 roll
  224. sub dup mul
  225. add 0.5 exp 72 div
  226. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  227. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  228. 1 index 1 index lt { exch } if pop
  229. mul
  230. /numpix exch def
  231. numpix 0 ne
  232. {
  233. NumSamples numpix div 0.5 gt
  234. {
  235. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  236. /rampIndxInc NumSamples 1 sub numsteps div def
  237. /subsampling true def
  238. } if
  239. } if
  240. ext0 {
  241. 0 getrampcolor
  242. x1 x2 lt
  243. { xMin yMin xStart xMin sub ySpan rectfill}
  244. { xStart yMin xMax xStart sub ySpan rectfill}
  245. ifelse
  246. } if
  247. /xInc xEnd xStart sub numsteps div def
  248. /x xStart def
  249. 0
  250. numsteps
  251. {
  252. dup
  253. subsampling { round cvi } if
  254. getrampcolor
  255. x yMin xInc ySpan rectfill
  256. /x x xInc add def
  257. rampIndxInc add
  258. }
  259. repeat
  260. pop
  261. ext1 {
  262. xStart xEnd lt
  263. { xEnd yMin xMax xEnd sub ySpan rectfill}
  264. { xMin yMin xEnd xMin sub ySpan rectfill}
  265. ifelse
  266. } if
  267. grestore
  268. grestore
  269. end
  270. end
  271. end
  272. } ifelse
  273. } bd
  274. /RadialShade {
  275. 40 dict begin
  276. /background exch def
  277. /ext1 exch def
  278. /ext0 exch def
  279. /BBox exch def
  280. /r2 exch def
  281. /c2y exch def
  282. /c2x exch def
  283. /r1 exch def
  284. /c1y exch def
  285. /c1x exch def
  286. /rampdict exch def
  287. gsave
  288. BBox length 0 gt {
  289. newpath
  290. BBox 0 get BBox 1 get moveto
  291. BBox 2 get BBox 0 get sub 0 rlineto
  292. 0 BBox 3 get BBox 1 get sub rlineto
  293. BBox 2 get BBox 0 get sub neg 0 rlineto
  294. closepath
  295. clip
  296. newpath
  297. } if
  298. gsave
  299. clippath
  300. pathbbox
  301. /BByMax exch def
  302. /BBxMax exch def
  303. /BByMin exch def
  304. /BBxMin exch def
  305. grestore
  306. BBxMax BBxMin eq BByMax BByMin eq or
  307. {
  308. grestore
  309. end
  310. }
  311. {
  312. rampdict begin
  313. 20 dict begin
  314. background length 0 gt { background L1setcolor gsave clippath fill grestore } if
  315. /areaOfConcern
  316. BBxMin BByMin BBxMax BByMax
  317. BBxMin BByMin
  318. BBxMax BBxMin sub 0
  319. 0 BByMax BByMin sub
  320. BBxMin BBxMax sub 0
  321. 12 packedarray
  322. < 0B 00 01 04 04 04 0A>
  323. 2 packedarray
  324. def
  325. c1x c2x sub dup mul
  326. c1y c2y sub dup mul
  327. add 0.5 exp
  328. r1 add
  329. r2 sub
  330. abs
  331. 0 dtransform
  332. dup mul exch dup mul add 0.5 exp 72 div
  333. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  334. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  335. 1 index 1 index lt { exch } if pop
  336. /hires exch def
  337. hires mul
  338. /numpix exch def
  339. /numsteps NumSamples def
  340. /rampIndxInc 1 def
  341. /subsampling false def
  342. numpix 0 ne
  343. {
  344. NumSamples numpix div 0.5 gt
  345. {
  346. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  347. /rampIndxInc NumSamples 1 sub numsteps div def
  348. /subsampling true def
  349. } if
  350. } if
  351. /xInc c2x c1x sub numsteps div def
  352. /yInc c2y c1y sub numsteps div def
  353. /rInc r2 r1 sub numsteps div def
  354. /cx c1x def
  355. /cy c1y def
  356. /radius r1 def
  357. newpath
  358. xInc 0 eq yInc 0 eq rInc 0 eq and and
  359. {
  360. 0 getrampcolor
  361. cx cy radius 0 360 arc
  362. stroke
  363. NumSamples 1 sub getrampcolor
  364. cx cy radius 72 hires div add 0 360 arc
  365. 0 setlinewidth
  366. stroke
  367. }
  368. {
  369. 0
  370. numsteps
  371. {
  372. dup
  373. subsampling { round cvi } if
  374. getrampcolor
  375. cx cy radius 0 360 arc
  376. /cx cx xInc add def
  377. /cy cy yInc add def
  378. /radius radius rInc add def
  379. cx cy radius 360 0 arcn
  380. eofill
  381. rampIndxInc add
  382. }
  383. repeat
  384. pop
  385. } ifelse
  386. grestore
  387. end
  388. end
  389. end
  390. } ifelse
  391. } bd
  392. %%EndResource
  393.